home *** CD-ROM | disk | FTP | other *** search
- COMMON/CURSTA/NCHST,NSTREF,NLIMA,IFILTR,NLREF(20),ICURCL(2),
- + NEWOUT,NDUMMY
- *IF DEF,NEVER
- *-----------------------------------------------------------------------
- * /CURSTA/ describes the "current" statement
- * (after calls to EXTRAC and CLASSF)
- * NCHST no. of ch. in statement
- * NSTREF no. of corresponding statement in SIMA
- * NLIMA no. of corresponding image lines of current stmt.
- * IFILTR flag: = -1 reset for routine, 0 reset for statement,
- * 1 do not reset
- * NLREF ref. to n-th corresponding line in SIMA
- * ICURCL(1) class of first part
- * ICURCL(2) class of second part ( if ICURCL(1)=IIF), else ILL
- * NEWOUT occupation of SNEWST in lines
- * NDUMMY true dummy argument (to avoid integer overflows)
- *-----------------------------------------------------------------------
- *EI
-